home *** CD-ROM | disk | FTP | other *** search
Text File | 1999-11-06 | 527 b | 23 lines | [TEXT/ToyS] |
- on run
- ConvertClipWithCyclone()
- end run
-
- on ConvertClipWithCyclone()
- tell application "Cyclone"
- activate
-
- try
- convert clipboard from Mac_Roman_Euro_Sign to Unicode_2_1_UTF_8
- on error number the error_number
- error "An error occured during clipboard conversion." & return & "Error code: " & (error_number as text)
- end try
-
- if result is not 0 then
- error "An error occured during clipboard conversion." & return & "Error code: " & (result as text)
- end if
-
- quit
- end tell
-
- end ConvertClipWithCyclone
-